home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / mcf4amirc / rexx / mcf_fsend.amirx < prev    next >
Text File  |  1996-09-17  |  970b  |  13 lines
  1. /* MCF_FSEND.AMIRX
  2. // $VER: MCF_FSEND.AMIRX 4.1 (29.07.96)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:        It will be used by MCF.AMIRX.
  9. \\
  10. // *Known BUG*   /DCC SEND does not seem to work with filenames
  11. \\  that contain spaces in them.
  12. */
  13. ;arg MCFenv auth Rnick junk Fnum junk;address value(MCFenv);xl=pos(".",MCFenv);Client=substr(MCFenv,xl+1);FSC="FSERV."||Client;Flag=getclip(FSC);if Flag="N" then;do;"RAW PRIVMSG "Rnick" :The File Server is not Available at this time.";exit;end;ppos=pos("#",Fnum)+1;epos=pos(".",Fnum);if ppos=1|epos<ppos then exit;Fcnt=substr(Fnum,ppos,epos-2);call open("Input","MCF:MCF.FSend","R");do cnt=1 by 1 until cnt=Fcnt;xx=readln("Input");end cnt;call close("Input");parse value xx with xnum Fname;Fname=strip(Fname,'L');"say /DCC SEND" Rnick Fname;exit